home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / misc / DC10.lha / DC10 / DC10MIA.bas (.txt) < prev    next >
AmigaBASIC Source Code  |  1987-06-15  |  22KB  |  531 lines
  1.  
  2.  REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  3.  REM  * DC-10 Flightsimulation ( part 3 ), by Jan Arkesteijn, <C> 1988  *
  4.  REM  * V 0.1f released in the public domain 9 april 1988, see doc file *
  5.  REM  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  6.  
  7.  CLEAR,30000
  8. start:                    
  9.  SCREEN 2,639,152,2,2
  10.  WINDOW 2,"DC-10-30 with autopilot by Jan Arkesteijn <C> 1988",,24,2
  11.  PALETTE 0,0,0,0:PALETTE 1,0,0.75,0:PALETTE 2,0,0.8,1:PALETTE 3,1,1,0
  12.  RANDOMIZE TIMER:DEFINT n-z:DIM rr%(40),ll%(40),uu%(40),dd%(40),z(12)
  13.  DECLARE FUNCTION AllocMem& LIBRARY   :DECLARE FUNCTION DoIO% LIBRARY
  14.  DECLARE FUNCTION OpenDevice% LIBRARY :DECLARE FUNCTION AllocSignal% LIBRARY
  15.  DECLARE FUNCTION FindTask& LIBRARY   :LIBRARY "exec.library"
  16.  mem&=2^0+2^16:port&=AllocMem&(33,mem&):IF port&=0 THEN PRINT"TROUBLE_1"
  17.  sB%=AllocSignal%(-1):IF sB%=-1 THEN PRINT"TROUBLE_2"
  18.  st&=FindTask&(0):port$="KbdPort"+CHR$(0)
  19.  POKE  port&+ 8,4 :POKE  port&+ 9,0  :POKEL port&+10,SADD(port$)
  20.  POKE  port&+14,0 :POKE  port&+15,sB%:POKEL port&+16,st&
  21.  POKEL port&+20,port&+24 :POKEL port&+28,port&+20: CALL AddPort(port&)
  22.  req&=AllocMem&(48,mem&):IF req&=0 THEN PRINT"TROUBLE_3"
  23.  kbd&=AllocMem&(13,mem&):IF kbd&=0 THEN PRINT"TROUBLE_4" 
  24.  POKE  req&+ 8,5 :POKE req&+ 9,0:POKEL req&+14,port&
  25.  POKEW req&+28,10:POKE req&+30,1:POKEL req&+36,13
  26.  POKEL req&+40,kbd&:dev$="keyboard.device"+CHR$(0)
  27.  fout%=OpenDevice(SADD(dev$),0,req&,0):IF fout%<>0 THEN PRINT"TROUBLE_5"
  28.  x0=16:x7=333:y0=20:y1=80:y5=333:qs=10
  29.  p1=13:p2=13:p3=13:p4=13:p6=15:p7=20:p8=20:p9=20
  30.  t1=4:t2=42:t3=315:t4=202:s4=13
  31.  mp=234000:v6=180:v9=158:wa=320:mz=250000:fl=15000
  32.  g1=9.81:mr=1:n0=25:n1=46:n2=110:h0=50:st(1)=16:st(2)=25
  33.  nt(1)=5:nt(2)=10:nt(3)=15:nt(4)=25:nt(5)=35:nt(6)=45:nt(7)=55
  34.  ca$="###.#":cb$="####.#"::cd$="\ \/###":cl$="#.##":cr$="##.#":cx$="#.#"
  35.  cs$="###":cv$="#####":co$="      ":cn$="           "
  36.  c0=0.0174533:c1=1.9417:c4=6078.7:c5=0.5:c9=0.0001:do=20160:e0=9e-06
  37.  q1=60:q2=90:q3=180:q4=360:q7=100:q9=1000:o1=1:o2=1:o3=1
  38.  CLS:COLOR 2,0
  39.  LINE(7,4)-(8,11),2,bf:AREA(3,3):AREA(12,3):AREA(8,0):AREA(7,0):AREAFILL
  40.  AREA(3,12):AREA (12,12):AREA(8,15):AREA(7,15):AREAFILL
  41.  LINE(16,3)-(23,3),2:AREA (31,3):AREA(24,1):AREA (24,5):AREAFILL
  42.  LINE(24,11)-(31,11),2:AREA(16,11):AREA(23,9):AREA(23,13):AREAFILL
  43.  GET(0,0)-(15,7),uu%:GET(0,8)-(15,15),dd%:GET(16,0)-(31,7),rr%
  44.  GET(16,8)-(31,15),ll%:CLS:COLOR 1,0 
  45.  ak=158:al=ak:fx#=25.8603:fy#=-80.7555:f1=25.9633:f2=-80.46:dz=2140
  46.  f3=25.7767:f4=-80.7183:f9=25.79:f0=-80.195:by=52.5:bx=-130:bs=bx*bx+by*by
  47. agn1: 
  48.  CLS:LOCATE 2,3:PRINT"Enter All Up Weight (min 130, max 175 tons)  ";
  49.  INPUT m:IF m<130 OR m>175 THEN agn1
  50.  ap=1.5+c5*INT((m-130)/9.1):aa=ap+1:m=m*q9:r0=RND*360:z(0)=2
  51.  w0=5+RND*4+((r0>50)*(r0<130)+(r0>230)*(r0<310))*RND*8
  52.  LOCATE 4,3:PRINT"V AT =";INT(v9*SQR(m/mz)+c5);" kt"
  53. agn1a: 
  54.  LOCATE 7,3:PRINT"Wind possibilities":LOCATE 9,3:PRINT"< 1 >  No wind"
  55.  LOCATE 10,3:PRINT"< 2 >  Normal wind (groundwind: ";
  56.  PRINT USING cd$;RIGHT$(STR$(q9+r0),3);c1*w0;:PRINT")"
  57.  LOCATE 11,3:PRINT"< 3 >  Choose groundwindparameters"
  58.  LOCATE 13,3:PRINT"Enter your choice (1,2 or 3)":INPUT wp
  59.  IF wp<1 OR wp>3 THEN agn1a
  60.  IF wp=3 THEN 
  61.  LOCATE 15,3:PRINT"Enter winddirection (0-360 degr) and windforce (0-18 kt)";
  62.  LOCATE 16,3:INPUT"###,##";r0,a0:w0=a0/c1
  63.  IF r0<0 OR r0>360 OR w0<0 OR w0>9 THEN agn1a
  64.  END IF
  65.  IF wp=1 THEN r0=0:w0=0 :ELSE r1=SGN(0.5-RND)*(5+RND*10):w2=5+RND*10:r2=r0+4*r1
  66. GOTO rwy 
  67. rtn2: 
  68.  LOCATE 2,4:PRINT RIGHT$(STR$(q7+th),2);":";RIGHT$(STR$(q7+tm),2);":";
  69.  PRINT RIGHT$(STR$(q7+ts),2):ts=ts+1 
  70.  IF ts=q1 THEN tm=tm+1:ts=0:IF tm=q1 THEN th=th+1:tm=0
  71.  LOCATE 2,35:PRINT USING ca$;ABS(ap);
  72.  IF ap=0 OR (ap<0 AND apo>0) OR (ap>0 AND apo<0) THEN LOCATE 2,33:PRINT"  ";
  73.  IF ap>0 THEN PUT(256,8),uu%,OR
  74.  IF ap<0 THEN PUT(256,8),dd%,OR
  75.  LOCATE 2,40:PRINT USING cs$;ABS(ab);
  76.  IF ab=0 OR (ab<0 AND abo>0) OR (ab>0 AND abo<0) THEN LOCATE 2,48:PRINT"  ";
  77.  IF ab>0 THEN PUT(376,8),rr%,OR
  78.  IF ab<0 THEN PUT(376,8),ll%,OR
  79.  LOCATE 3,44
  80.  IF h=0 AND ap=0 AND xo=12 THEN PRINT USING cx$;ABS(an); 
  81.  IF h=0 AND ap>0 AND ap<6 THEN PRINT co$;
  82.  IF an=0 OR (an<0 AND ano>0) OR (an>0 AND ano<0) THEN LOCATE 3,48:PRINT"  ";
  83.  IF an>0 THEN PUT(376,16),rr%,OR
  84.  IF an<0 THEN PUT(376,16),ll%,OR
  85.  s1=ap:s2=ab/2:s3=ab/4:s4=44+s1
  86.  LINE (260,p1)-(264,p1),0
  87.  IF ABS(s1+s2)<28 THEN p1=s4+s2:LINE (260,p1)-(264,p1),3
  88.  LINE (292,p2)-(296,p2),0
  89.  IF ABS(s1+s3)<28 THEN p2=s4+s3:LINE (292,p2)-(296,p2),3
  90.  LINE (352,p3)-(356,p3),0
  91.  IF ABS(s1-s3)<28 THEN p3=s4-s3:LINE (352,p3)-(356,p3),3
  92.  LINE (388,p4)-(392,p4),0
  93.  IF ABS(s1-s2)<28 THEN p4=s4-s2:LINE (388,p4)-(392,p4),3
  94.  IF n1>70 THEN IF z1=5 AND h>z4 OR z1=10 AND h>z3 OR z1=15 AND z2<ts THEN o1=0
  95.  n3=n1-98-h/3500:n4=n4+n3:n5=n5+n3:IF n4<0 OR n5<0 THEN n4=0:n5=0
  96.  IF n4>600 THEN LOCATE 2,55:PRINT"*";:IF n4>630 THEN n4=630
  97.  IF n5>1200 THEN o1=0:IF n5>5000 THEN n5=5000
  98.  fh=(0.37+0.29*mn)*ABS(ma)/(g1*mr):fc=fh/3600:m=m-fc:fl=fl-fc:g=g1*m
  99.  IF fl<200 THEN o1=0:o2=0:o3=0:LOCATE 4,7:PRINT"EMPTY";:GOTO sct0
  100.  LOCATE 3,7:PRINT USING ca$;m/q9;:LOCATE 4,7:PRINT USING ca$;fl/q9;
  101.  LOCATE 5,7:IF fl>200 THEN PRINT USING ca$;fh/q9; :ELSE PRINT co$;
  102. sct0: 
  103.  IF n1>n0 OR n1<-n0 THEN n9=ABS(n1) :ELSE n1=n0*SGN(n1):n9=n0
  104.  LOCATE 9,52:IF o1=1 THEN PRINT USING cs$;n9; :ELSE PRINT" SD";
  105.  LOCATE 9,56:IF o2=1 THEN PRINT USING cs$;n9; :ELSE PRINT" SD";
  106.  LOCATE 9,60:IF o3=1 THEN PRINT USING cs$;n9: :ELSE PRINT" SD";
  107.  IF tr=1 AND sg<15 THEN tr=0:n1=n0:mr=1:LOCATE 10,52:PRINT"   ";
  108.  LINE (417,p6)-(423,p6),0:LINE(454,p6)-(456,p6),0:LINE(460,p6)-(462,p6),0
  109.  LINE (493,p6)-(499,p6),0:p6=62-0.4*ABS(n1)
  110.  IF o1=1 THEN LINE (417,p6)-(423,p6),3
  111.  IF o2=1 THEN LINE (454,p6)-(456,p6),3:LINE(460,p6)-(462,p6),3
  112.  IF o3=1 THEN LINE (493,p6)-(499,p6),3
  113.  n=o1+o2+o3:LOCATE 10,57:IF n<3 THEN PRINT 3-n;"OUT"; :ELSE PRINT co$
  114.  ae=(do-dz)/(do+dz):ma=n1*ABS(n1)*c9*n*mr*mp*ae*(1-0.9*mn+c5*mn*mn)
  115.  af=0.6113*ae:bb=c0*ab:bk=c0*ak:bo=c0*ao:bp=c0*ap:co=COS(bo):io=SIN(bo)
  116.  IF h>h0 THEN dg=0.0476 :ELSE dg=0.0476-0.02*(1-h/h0)
  117.  cd=(0.001*(x0+xo+xr+dm)+dg*cl*cl+x7*1e-12*aa^7)*(1-(o1<>o3)*0.08)
  118.  IF dz>0 THEN gr=0:GOTO sct1 :ELSE gq=0.02*(g-li)*(bg*bg+15)/(bg*bg+5)
  119.  IF q=0 AND ma>0 AND ma<gq THEN gr=ma 
  120.  IF q=0 AND ma<=0 AND ma>=gq THEN gr=gq
  121.  IF q=1 AND bg>1 THEN gr=gq :ELSE IF q=1 AND bg<=1 THEN gr=bg*gq
  122. sct1:
  123.  IF bg>5 THEN bv=1 :ELSE bv=0.2*bg
  124.  IF h=0 AND uw=1 THEN bw=2*bv*(mz-q*(mz-m)) :ELSE bw=0 
  125.  dr=af*bs*cd*wa:bn=ABS(bg*bg*an*c0/20)
  126.  aw=(ma*COS(bp)+(bg>1)*dr*co-gr-bw-li*io)/m:av=ABS(li*co*SIN(bb)/m)
  127.  ax=aw*COS(bk)+av*COS(bk+SGN(ab)*q2*c0)
  128.  ay=aw*SIN(bk)+av*SIN(bk+SGN(ab)*q2*c0)
  129.  IF uk=1 THEN bk=(rd-2+RND*3)*c0:bx=bh*COS(bk):by=bh*SIN(bk):uk=0
  130.  bx=bx+ax+bn*COS(bk+SGN(an)*q2*c0):IF bx=0 THEN bx=c9
  131.  by=by+ay+bn*SIN(bk+SGN(an)*q2*c0):bf=bx*bx+by*by:bh=SQR(bf)
  132.  IF bh>c9 THEN ak=ATN(by/bx)/c0+q2*(2-SGN(by)-SGN(bx)*SGN(by))
  133.  IF h=0 AND ABS(ak-al)>q2 THEN ak=ak+q3:ak=ak+(ak>q4)*q4:bh=-bh:wt=1
  134.  IF h<h0 THEN lg=1.05-0.001*h :ELSE lg=1
  135.  cl=(0.01*y0+0.001*y1*aa-1e-09*y5*aa*aa*aa*aa*aa)/SQR(1-mn*mn+mn^7)
  136.  IF aa>qs AND cl<0 THEN cl=0
  137.  li=af*lg*cl*wa*bs:az=(li*co*COS(bb)-g-dr*io+ma*SIN(bp))/m:bz=bz+az
  138.  cz=196.72*bz:IF dz<=0 AND bz<=0 THEN az=0:bz=0:cz=0
  139.  dz=dz+bz+c5*az:h=3.2787*dz:IF dz<=0 THEN dz=0:h=0
  140.  bs=bf+bz*bz:bt=(1+2*(wt=1))*SQR(bs):wt=0:s=c1*bt:si=s*SQR(ae*(1+0.25*mn*mn))
  141.  mn=bt/(340-0.0044*dz):ao=ATN(bz/(bh+c9))/c0:aa=ap+1-ao
  142.  IF aa<qs AND h>0 THEN LOCATE 3,36:PRINT cn$ :ELSE lstall
  143. rtn3:
  144.  br=c0*(ak-wd+q3):cr=COS(br)
  145.  IF dz>0 THEN
  146.    bg=SQR(fw*fw+bf+2*fw*bh*cr):fd=ak-ATN(fw*SIN(br)/(bh+fw*cr))/c0
  147.  ELSE
  148.    bg=bh+fw*cr:fd=ak
  149.    IF bg<0.2 THEN bg=0
  150.  END IF
  151.  fd=fd+(fd>=q4)*q4-(fd<0)*q4
  152.  LOCATE 12,25:PRINT RIGHT$(STR$(q9+INT(ak+c5)),3);
  153.  LOCATE 12,58:PRINT RIGHT$(STR$(q9+INT(fd+c5)),3);
  154.  kl=ABS(ak-al):LOCATE 2,44:PRINT USING cx$;ABS(kl+(kl>q2)*q4);:al=ak
  155.  LOCATE 9,24:PRINT USING cs$;si;
  156.  LOCATE 7,9:PRINT USING cl$;mn;:LOCATE 10,40:PRINT USING cv$;h;
  157.  IF ABS(cz)<9999 THEN 
  158.    LOCATE 10,24:PRINT USING cv$;cz;:LOCATE 10,23:PRINT":";
  159.  ELSE
  160.    LOCATE 10,24:PRINT USING cv$;9999*SGN(cz);:LOCATE 10,23:PRINT">";
  161.  END IF
  162.  sg=c1*bg:LOCATE 8,9:PRINT USING cs$;s;:LOCATE 10,9:PRINT USING cs$;sg;
  163.  LOCATE 9,6:PRINT USING cd$;RIGHT$(STR$(q9+wd-(wd<0)*q4),3);c1*fw;
  164.  LOCATE 2,55:PRINT" "; 
  165.  LINE(182,p7)-(188,p7),0
  166.  IF si>90 AND si <410 THEN p7=74-si/6.25:LINE(182,p7)-(188,p7),3
  167.  z=z+1:IF z=7 THEN z=1                                        
  168.  IF z<>2 THEN sct2
  169.  IF dz<2000 THEN fw=w0+(w2-w0)*dz/2000:wd=r0+r1*dz/500 :ELSE fw=w2:wd=r2
  170. sct2: 
  171.  IF z=3 OR z=6 THEN 
  172.    LINE (t1,t2)-(t1+2,t2+1),0,bf:ba=ak*c0:t1=186+18*SIN(ba):t2=115-8*COS(ba)
  173.    LINE (t1,t2)-(t1+2,t2+1),2,bf
  174.  END IF 
  175.  fx#=fx#+(bg*COS(fd*c0)+c5*ax)*e0:gx=fx#
  176.  fy#=fy#+(bg*SIN(fd*c0)+c5*ay)*e0/COS(gx*c0):gy=fy#
  177.  IF z=1 THEN fa=f1:fb=f2
  178.  IF z=4 THEN fa=f3:fb=f4
  179.  IF z=5 THEN fa=f9:fb=f0
  180.  IF z=2 OR z=3 OR z=6 THEN sct3
  181.  da=(gx-fa)*q1:db=(gy-fb)*q1*COS((fa+gx)*c5*c0):IF da=0 THEN da=c9
  182.  ra=ATN(db/da)/c0+q2*(2-SGN(db)-SGN(da)*SGN(db))
  183.  re=q3-fd+ra+c5:re=re+(re>=q4)*q4-(re<0)*q4
  184.  ra=ra+(z=5)*q3+c5:ra=ra-(ra<0)*q4+(ra>=q4)*q4
  185.  LOCATE 12+z+(z=5)*4,76+(z=5)*70:PRINT RIGHT$(STR$(q9+ra),3);
  186.  IF z<>1 THEN LOCATE 13+z+(z=5)*4,71+(z=5)*65:PRINT RIGHT$(STR$(q9+re),3);  
  187.  IF z=1 OR z=4 THEN 
  188.    wv=SQR(da*da+db*db):di=4+0.5*wv:LOCATE 12+z,66:PRINT USING ca$;wv;
  189.  END IF
  190.  IF z=5 THEN re=ra
  191.  be=re*c0:ce=COS(be):ie=SIN(be)
  192.  IF z=1 THEN 
  193.   LINE(t6,t7)-(t6+2,t7+1),0,bf
  194.   IF wv<30 THEN t6=452+2.2*di*ie:t7=114-di*ce:LINE(t6,t7)-(t6+2,t7+1),2,bf
  195.  END IF
  196.  IF z=4 THEN
  197.   LINE(t8,t9)-(t8+2,t9+1),0,bf
  198.   IF wv<30 THEN t8=452+2.2*di*ie:t9=114-di*ce:LINE(t8,t9)-(t8+2,t9+1),3,bf
  199.  END IF
  200.  IF z=5 THEN
  201.    LINE(s8,s9)-(s8+2,s9+1),0,bf
  202.    s8=188+25*ie:s9=115-11*ce:LINE(s8,s9)-(s8+2,s9+1),3,bf
  203.  END IF    
  204. sct3:
  205.  IF z=2 OR z=5 THEN 
  206.    fa=f5:fb=f6 
  207.  ELSEIF z=3 OR z=6 THEN
  208.    fa=f7:fb=f8 
  209.  ELSE
  210.    GOTO sct4
  211.  END IF
  212.  da=(fa-gx)*q1:db=(fb-gy)*q1*COS((fa+gx)*c5*c0):IF da=0 THEN da=c9
  213.  dv=SQR(da*da+db*db)+c9
  214.  IF z=2 OR z=5 THEN
  215.    am=ATN(db/da)/c0+q2*(2-SGN(db)-SGN(da)*SGN(db))
  216.    aho=ah:ah=rd-am:eb=dv*ah:ea=ABS(eb):dt=dv
  217.  ELSE
  218.    GOTO sct5
  219.  END IF
  220.  IF h=0 THEN 
  221.    LOCATE 17,1 :PRINT"REMAIN:";:PRINT USING cv$;dv*c4-q9;:PRINT" FT";
  222.  ELSE
  223.    GOTO sct6
  224.  END IF
  225.  ab=0:IF dv<du AND dv>0.16 AND ea<1 THEN sct7
  226.  IF dv<du+1 AND dv>du AND ABS(ah)<3 THEN crash1
  227.  IF dv<du AND dv>0.16 AND ea>1 AND ea<3 AND ah<45 THEN crash4
  228.  IF dv <0.16 AND ea<1 THEN crash5
  229.  GOTO crash9
  230. sct7: 
  231.  IF xo<>12 THEN crash7
  232.  IF cz<=-700 THEN crash2
  233.  IF cz<-400 AND cz>-700 THEN uv=1
  234.  IF sg=0 AND uv=1 THEN crash3 
  235. sct6:
  236.  IF q<>1 THEN sct4
  237.  LOCATE 17,35
  238.  IF ABS(ah)<=5 THEN PRINT USING cx$;ABS(ah);
  239.  IF ah>5  THEN PRINT" LE";
  240.  IF ah<-5 THEN PRINT" RI";
  241.  IF ah=0 OR (ah>0 AND aho<0) OR (ah<0 AND aho>0) THEN LOCATE 17,33:PRINT"  ";
  242.  IF ah>0 THEN PUT(256,128),ll%,OR
  243.  IF ah<0 THEN PUT(256,128),rr%,OR
  244.  GOTO sct4
  245. sct5: 
  246.  IF h>0 THEN LOCATE 17,1:PRINT"TO GO:";: PRINT USING cb$;dv;:PRINT" NM";
  247.  IF q<>1 THEN sct4
  248.  am=ATN(h/(dv*c4))/c0:aio=ai:ai=am-3
  249.  IF h<50 THEN LOCATE 17,43:PRINT co$;:GOTO sct8
  250.  LOCATE 17,43
  251.  IF ABS(ai)<=1 THEN PRINT USING cx$;ABS(ai);
  252.  IF ai>1  THEN PRINT" DN";
  253.  IF ai<-1 THEN PRINT" UP";
  254.  IF ai=0 OR (ai>0 AND aio<0) OR (ai<0 AND aio>0) THEN LOCATE 17,46:PRINT"  ";
  255.  IF ai>0 THEN PUT(360,128),dd%,OR
  256.  IF ai<0 THEN PUT(360,128),uu%,OR
  257. sct8:
  258.  LINE(t3,90)-(t3+1,122),0,bf:t3=315-9.6*(ah+(ah>5)*(ah-5)+(ah<-5)*(ah+5))
  259.  LINE(t3,90)-(t3+1,122),3,bf:LINE(267,t4)-(363,t4),0
  260.  t4=106+16*(ai+(ai>1)*(ai-1)+(ai<-1)*(ai+1)):LINE(267,t4)-(363,t4),3 
  261.  LOCATE 4,40
  262.  IF ABS(ah)<2 THEN
  263.    IF dv<4.2 AND dv>3.8 THEN
  264.     PRINT"O M";:uom=1
  265.    ELSEIF dv<0.7 AND dv>0.5 AND dt>du THEN 
  266.     PRINT"M M";
  267.    ELSE
  268.     PRINT co$;:uom=0
  269.    END IF
  270.  END IF
  271.  x2=(4-n)*100:LOCATE 9,40
  272.  IF h<x2+30 AND h>x2-10 AND xl=0THEN PRINT"D H"; :ELSE PRINT co$;
  273.  IF h<x2+30 AND h>x2-20 AND xl=0THEN
  274.    IF ABS(ai)>0.7 OR ABS(ah)>c5 OR ABS(fd-rd)>3 THEN LOCATE 9,40:PRINT"O S";
  275.  END IF 
  276. sct4: 
  277.  cw=SQR(m/mz):v2=v6*cw:v1=v2-15:vr=v2-8:va=v9*cw+(3-n)*5
  278.  IF v1>160 THEN v1=160 
  279.  LOCATE 5,25
  280.  IF si>380 AND h<24000 THEN PRINT"V MO";:GOTO sct9
  281.  IF mn>0.88 AND dh>=24000 THEN PRINT"M MO";:GOTO sct9
  282.  IF si>v2-2 AND si<v2+5 AND nt=3 AND q=0 THEN PRINT"V 2 ";:GOTO sct9
  283.  IF si>va-5 AND si<va+5 AND nt=7 AND q=1 AND h>0 THEN PRINT"V AT";:GOTO sct9
  284.  IF si>vr-2 AND si<vr+5 AND nt=3 AND q=0 AND h=0 THEN PRINT"V R ";:GOTO sct9
  285.  IF si>v1-5 AND si<v1+2 AND q=0 AND h=0 THEN PRINT"V 1 ";:GOTO sct9
  286.  PRINT"    "; 
  287. sct9:
  288.  IF st=su AND nt=nu THEN sct10
  289.  su=st:nu=nt:y0=20+2*nt(nt):y5=-17*(st(st)>5)+1000/(st(st)+3)+2*nt
  290.  x0=16+0.4*st(st)+1.3*nt(nt):x7=1000/(st(st)+3)+4*nt(nt)
  291.  qs=11+0.4*st(st)-nt(nt)/8
  292.  LINE(548,p8)-(552,p8),0:p8=20+0.64*st(st):LINE(548,p8)-(552,p8),3
  293.  LINE(598,p9)-(602,p9),0:p9=20+0.58*nt(nt):LINE(598,p9)-(602,p9),3
  294. sct10:
  295.  IF uc=1 AND xo<12 THEN xo=xo+1:LOCATE 10,73:PRINT"* "; :ELSE sct11
  296.  IF xo>= 12 THEN xo=12:LOCATE 10,73:PRINT"DN";
  297. sct11:
  298.  IF uc=0 AND xo>0 THEN xo=xo-1:LOCATE 10,73:PRINT" *"; :ELSE api1
  299.  IF xo<=0 THEN xo=0:LOCATE 10,73:PRINT"UP";
  300. api1:
  301.  IF xt+xf=0 THEN api2
  302.  IF h<20-cz/50 AND h>10 AND (z=2 OR z=5) THEN uos=1 :ELSE uos=0
  303.  IF uos=1 AND (ea>0.8 OR dv>du+0.3+cz/3000 OR dv<1) THEN 
  304.   uos=0:os=1:LOCATE 7,40:PRINT"AOS";:LOCATE 8,40:PRINT"AOS";
  305.  END IF
  306.  IF os=1 THEN ap=ap+2:IF ap>10 THEN ap=10
  307.  IF os=1 THEN n1=n1+10:IF n1>90 THEN n1=90
  308.  IF os=1 AND ap=10 AND n1=90 THEN
  309.   os=0:xl=0:xf=0:xt=0:ur=0:tz=0:ty=0:tx=0:tw=0:tv=0
  310.   LOCATE 7,40:PRINT"   ";:LOCATE 8,40:PRINT"   ";
  311.  END IF
  312.  IF os=1 THEN kbd 
  313. api2: 
  314.  IF xl=0 THEN api3
  315.  IF tz=0 THEN tz=1:rb=rd-eb 
  316.  tz=tz+1:IF tz<20 THEN ar=rb:sn=1 :ELSE ar=rd+0.02*(ak-fd)-eb:sn=-1
  317.  IF ABS(ar-fd)>2.5 THEN ab=ab-3*SGN(ah)*sn :ELSE ab=INT(2*(ar-fd))
  318.  IF ABS(ab)>10 THEN ab=10*SGN(ab)
  319.  IF h<20 THEN ab=SGN(ab) 
  320.  IF h<-cz/40 AND ty=0 THEN uk=1:ty=1
  321.  IF h=0 THEN ab=0
  322.  IF h=0 AND ap=0 THEN an=INT(3*(ar-fd))/10
  323.  IF h>600 AND ap=0 THEN
  324.   n1=27+m/6400-(si-va-10)-(20-2*(ai>0))*(ai-(ai>0.2)*(ai-0.2))
  325.  END IF
  326.  IF h<600 AND tv=0 THEN tv=1:nn=n1
  327.  IF tv=1 AND h>300 AND ap<3 THEN n1=nn-10:ap=ap-c5*INT((5.3*sg+cz)/125)
  328. api3:
  329.  IF xf=0 THEN api4
  330.  IF h<50 AND h>16 AND cz<-300 THEN
  331.   tx=tx+1:IF tx <4 THEN ap=ap+c5+0.08*(va-si)
  332.  END IF 
  333.  IF h<16 AND h>0 THEN
  334.   aq=ap-ao-c5-(h<6)*0.008*(s-sg)
  335.   IF aq-ap>c5 THEN ap=ap+c5 :ELSE ap=aq
  336.  END IF
  337.  IF h=0 AND tw=0 THEN tw=1:GOTO api4
  338.  IF h=0 AND ap>0 THEN ap=ap-2:IF ap<0 THEN ap=0
  339. api4:
  340.  IF xt=0 THEN kbd
  341.  IF h>450 THEN xr=0:LOCATE 8,73:PRINT"OFF";
  342.  IF h>20 AND ap=3 THEN
  343.   n1=26+m/6400-(si-va)+(h>150)*(20-2*(ai>0))*(ai-(ai>0.2)*(ai-0.2))
  344.  END IF
  345.  IF h<15 AND h>0 THEN n1=n0
  346.  IF h=0 AND ap=0 AND ur=0 THEN
  347.   ur=1:uw=1:LOCATE 9,73:PRINT" ON";:xr=50:LOCATE 8,73:PRINT" ON";
  348.   n1=-n0:mr=c5:LOCATE 10,52:PRINT"*R*";:tr=1
  349.  END IF
  350.  IF tr=1 THEN n1=n1-10:IF n1<-90 THEN n1=-90
  351.  IF h=0 AND ap=0 AND si<80 AND dv>0.6 THEN
  352.    n1=n0:mr=1:LOCATE 10,52:PRINT"   ";:tr=0
  353.  END IF  
  354. kbd:
  355.  DoIO(req&):FOR x=0 TO 12:z(x)=PEEK(kbd&+x):z0=z0+z(x):NEXT
  356.  IF z0=0 THEN rtn2 :ELSE z0=0
  357.  IF z(6)=8 AND z(9)=32 THEN
  358. pause: 
  359.  DoIO(req&):IF PEEK(kbd&+6)=8 AND PEEK(kbd&+9)=16 THEN rtn2
  360.  GOTO pause 
  361.  END IF
  362.  IF z(2)=1 AND z(9)=32 THEN CLS:GOTO restart
  363.  IF xl+xt+xf>0 THEN
  364.   IF z(11)=128 AND z(9)=32 THEN
  365.    xl=0:xt=0:xf=0:os=0:ur=0:tv=0:tw=0:tx=0:ty=0:tz=0
  366.    LOCATE 7,40:PRINT"   ";:LOCATE 8,40:PRINT"   ";
  367.   ELSE
  368.    GOTO rtn2
  369.   END IF
  370.  END IF
  371.  IF q=1 AND n=3 AND st=2 AND nt=7 AND xo=12 THEN uap=1 :ELSE uap=0
  372.  IF uap=1 AND ABS(ai)<c5 AND ABS(fd-rd)<5 THEN uap=0:GOTO api6 :ELSE GOTO api7 
  373. api6:
  374.  IF z(11)=128 AND z(5)=1 THEN
  375.   IF uom=1 AND ABS(s-va-10)<5 AND ap=0 AND ah<2 THEN
  376.    xl=1:xt=1:xf=1:LOCATE 8,40:PRINT"A L";
  377.   END IF
  378.  END IF 
  379.  IF xl=0 AND h<700 AND h>500 AND ah<1 AND ABS(si-va)<5 AND ap=3 THEN
  380.   IF z(11)=128 AND z(2)=16 THEN 
  381.    xt=1:LOCATE 8,40:PRINT"A T";
  382.   ELSEIF z(11)=128 AND z(4)=8 THEN
  383.    xf=1:LOCATE 7,40:PRINT"A F";
  384.   END IF
  385.  END IF
  386. api7: 
  387.  IF z(2)<>2 THEN rb1
  388.  IF z(1)=4   THEN w$="20.0 MIA 279:26.0150:-80.8250:0"
  389.  IF z(0)=2   THEN w$="17.8 MIA 231:25.7767:-80.7183:1"
  390.  IF z(0)=4   THEN w$="12.4 MIA 205:25.7750:-80.5567:2"
  391.  IF z(0)=8   THEN w$="11.0 MIA 183:25.7783:-80.4717:3"
  392.  IF z(0)=16  THEN w$="18.0 MIA 214:25.7117:-80.6450:4"
  393.  IF z(0)=32  THEN w$=" 5.2 BSY 293:25.7050:-80.2667:5"
  394.  IF z(0)=64  THEN w$=" 4.8 BSY 061:25.7100:-80.1017:6"
  395.  IF z(0)=128 THEN w$=" 7.9 BSY 072:25.7101:-80.0451:7"
  396.  IF z(1)=1   THEN w$="10.4 BSY 044:25.7967:-80.0450:8"
  397.  IF z(1)=2   THEN w$=" 8.3 BSY 028:25.7933:-80.1050:9"
  398.  LOCATE 16,74:PRINT RIGHT$(w$,1);
  399.  f3=VAL(MID$(w$,14,7)):f4=VAL(MID$(w$,22,8)):wv$=MID$(w$,6,3)
  400.  IF wv$="MIA" THEN f1=25.9633:f2=-80.46 :ELSE f1=25.6717:f2=-80.1783
  401.  LOCATE 15,67:PRINT LEFT$(w$,12);:LOCATE 13,72:PRINT wv$ 
  402. rb1: 
  403.  px=5+(z(8)=1)*4:py=px
  404.  IF z(9)=128 THEN px=-px 
  405.  IF z(9)<>64 AND z(9)<>128 THEN px=0
  406.  abo=ab:IF z(2)=8 THEN ab=ab+px
  407.  IF ABS(ab)>25 THEN ab=SGN(ab)*25
  408.  IF h=0 THEN ab=0
  409.  ano=an:IF z(6)=64 THEN an=an+0.1*px
  410.  IF ABS(an)>6 THEN an=SGN(an)*6
  411.  IF z(9)=32 THEN py=-py 
  412.  IF z(9)<>16 AND z(9)<>32 THEN py=0
  413.  IF z(2)=16 AND xt=0 THEN n1=n1+2*py
  414.  IF n1<n0 AND mr=1 THEN n1=n0 
  415.  IF ABS(n1)>n2 THEN n1=SGN(n1)*n2
  416.  apo=ap:IF z(3)=2 AND xf=0 AND si>80 THEN ap=ap+c5*py
  417.  IF h=0 THEN IF ap<0 OR si<80 THEN ap=0 
  418.  IF h=0 AND ap>14 THEN ap=14
  419.  IF h>0 OR ap>0 THEN an=0 
  420.  IF z(9)<>32 THEN jp2
  421.  IF z(2)=4 AND h=0 AND xt=0 THEN n1=-n0:mr=c5:tr=1:LOCATE 10,52:PRINT"*R*";
  422.  IF z(2)=128 AND xt+xf=0 AND q=1 THEN 
  423.    q=0:LINE(t3,90)-(t3+1,122),0,bf:LINE(267,t4)-(363,t4+1),0,bf
  424.    LOCATE 17,33:PRINT co$;:LOCATE 17,43:PRINT co$;
  425.  END IF  
  426.  IF z(3)=32 AND xt=0 THEN o1=0
  427.  IF z(3)=64 AND xt=0 THEN o2=0
  428.  IF z(3)=128 AND xt=0 THEN o3=0
  429.  IF z(4)=1 AND xt=0 THEN LOCATE 8,73:PRINT" ON";:xr=50
  430.  IF z(4)=2 THEN st=st+1:IF st>2 THEN st=2
  431.  IF z(4)=8 AND st>=1 AND si<270-nt*10 THEN nt=nt+1:IF nt>7 THEN nt=7
  432.  IF z(4)=16 THEN uc=1
  433.  IF z(6)=32 AND xt=0 THEN uw=1:LOCATE 9,73:PRINT" ON";
  434.  IF z(6)=128 AND fl>15000 THEN fl=fl-5000:m=m-5000 
  435. jp2: 
  436.  IF z(9)<>16 THEN jp4
  437.  IF z(2)=4 AND xt=0 THEN n1=n0:mr=1:tr=0:LOCATE 10,52:PRINT"   ";
  438.  IF z(2)=128 THEN q=1
  439.  IF z(3)=32 THEN o1=1
  440.  IF z(3)=64 THEN o2=1
  441.  IF z(3)=128 THEN o3=1
  442.  IF z(4)=1 AND xt=0 THEN xr=0:LOCATE 8,73:PRINT"OFF";
  443.  IF z(4)=2 AND xt+xf=0 THEN st=st-1:IF st<0 THEN st=0
  444.  IF z(4)=8 AND xt+xf=0 THEN nt=nt-1:IF nt<0 THEN nt=0
  445.  IF z(4)=16 AND xt+xf=0 THEN uc=0
  446.  IF z(6)=32 AND xt=0 THEN uw=0:LOCATE 9,73:PRINT"OFF";
  447. jp4:
  448.  IF z(3)=32 AND z(1)=4 AND q=1 AND h<20 AND h>0 THEN uk=2 :ELSE uk=0
  449.  IF uk=2 AND ea<1 AND dv<du AND ABS(ak-rd)>2 AND ABS(fd-rd)<9 THEN uk=1
  450.  IF z(4)<>4 OR h=0  OR xt+xf<>0 GOTO jp6
  451. rwy:
  452.  IF z(0)=2 THEN 
  453.  rw$="MIA 09R":rd=87:du=1.71:f5=25.7868:f6=-80.263:f7=25.7855:f8=-80.2914
  454.  END IF
  455.  IF z(0)=4 THEN
  456.  rw$="MIA 27L":rd=267:du=1.7:f5=25.7852:f6=-80.2975:f7=25.7865:f8=-80.269
  457.  END IF
  458.  IF tt=0 THEN tt=1:GOTO prep :ELSE LOCATE 16,9:PRINT LEFT$(rw$,7);
  459. jp6:
  460.  GOTO rtn2
  461. prep: 
  462.  CLS:LINE (0,83)-(640,83),1
  463.  LINE (240,0)-(240,83),1:LINE (400,0)-(400,83),1
  464.  LINE (251,83)-(251,152),1:LINE (389,83)-(389,152),1
  465.  LINE (125,0)-(125,152),1:LINE (515,0)-(515,152),1
  466.  LINE (180,8)-(180,62),2
  467.  FOR x=0 TO 3:LINE(176,58-16*x)-(180,58-16*x),2:NEXT
  468.  FOR x=0 TO 2:LINE (425+33*x,16)-(425+33*x,62),2:NEXT 
  469.  FOR x=0 TO 5:LINE (425,22+8*x)-(428,22+8*x),2:NEXT
  470.  FOR x=0 TO 5:LINE (488,22+8*x)-(491,22+8*x),2:NEXT
  471.  LINE (554,20)-(554,36),2:LINE (596,20)-(596,52),2
  472.  FOR x=0 TO 2:LINE (554,20+8*x)-(557,20+8*x),2:NEXT
  473.  FOR x=0 TO 4:LINE (593,20+8*x)-(596,20+8*x),2:NEXT
  474.  LINE(548,20)-(552,20),3:LINE(598,20)-(602,20),3
  475.  LINE (310,88)-(320,88),2:LINE (310,124)-(320,124),2
  476.  LINE (264,100)-(265,112),2,bf:LINE (366,100)-(367,112),2,bf
  477.  LINE (110,90)-(114,92),3,bf:LINE (135,90)-(139,92),2,bf
  478.  LINE (610,90)-(614,92),2,bf:LINE (610,106)-(614,108),3,bf
  479.  LOCATE 3,2:PRINT"AUW :":LOCATE 4,2:PRINT"FUEL:":LOCATE 5,2:PRINT"FFHR:"
  480.  LOCATE 7,7:PRINT"M:":LOCATE 8,5:PRINT"TAS:":LOCATE 9,3:PRINT"WD:"
  481.  LOCATE 10,6:PRINT"GS:":LOCATE 9,19:PRINT"IAS :":LOCATE 10,19:PRINT"VSI :"
  482.  LOCATE 2,26:PRINT"IAS":FOR x=1 TO 4:LOCATE 10-2*x,18:PRINT 100*x;:NEXT
  483.  LOCATE 6,39:PRINT"--O--":LOCATE 10,36:PRINT"ALT:":LOCATE 2,57:PRINT"N1"
  484.  LOCATE 2,37:PRINT"0.0  0/0.0";:LOCATE 3,44:PRINT"0.0";
  485.  FOR x=0 TO 4:LOCATE 8-x,55:PRINT USING".#";x/5;:NEXT
  486.  FOR x=0 TO 4:LOCATE 8-x,59:PRINT USING".#";x/5;:NEXT
  487.  LOCATE 3,55:PRINT"1.";:LOCATE 3,59:PRINT"1.";
  488.  LOCATE 2,69:PRINT"SL   FL":LOCATE 8,70:PRINT"AB:OFF"
  489.  LOCATE 9,70:PRINT"WB:OFF":LOCATE 10,70:PRINT"LG:UP"
  490.  FOR x=0 TO 4:LOCATE 3+x,71:PRINT 15*x+(x=4)*5;:NEXT
  491.  LOCATE 12,2:PRINT"ADF: MI":LOCATE 13,3:PRINT"BG:":LOCATE 14,2:PRINT"RBG:"
  492.  LOCATE 16,1:PRINT"DME RWY ";LEFT$(rw$,7);:LOCATE 12,21:PRINT"HDG:"
  493.  LOCATE 17,39:PRINT"ILS";:LOCATE 12,54:PRINT"TRK:":LOCATE 17,64:PRINT"S";
  494.  LOCATE 12,67:PRINT"DME/VOR  ":LOCATE 13,72:PRINT"MIA";
  495.  LOCATE 15,66:PRINT"(17.8 MIA 231)":LOCATE 16,72:PRINT"WP1";
  496.  LOCATE 14,67:PRINT"WAYPOINT":LOCATE 17,67:PRINT"RGB:";
  497.  LOCATE 13,24:PRINT"N":LOCATE 15,19:PRINT"W    *    E"
  498.  LOCATE 17,24:PRINT"S";:LOCATE 15,57:PRINT"+"
  499.  GOTO rtn2
  500. lstall:
  501. qt=qs+4+(st=0):IF aa>=qs AND aa<qt THEN LOCATE 3,37:PRINT"BUFFETING";
  502. IF aa>+qt THEN LOCATE 3,37:PRINT"* STALL *";
  503. IF aa>qt+3 THEN ap=ap-INT(aa/4)
  504. IF aa>qt+13 THEN
  505.   CLS:LOCATE 4,20:PRINT"W I T H I N   A   M I N U T E   O R   S O
  506.   LOCATE 8,10:PRINT"Y O U   W I L L   C R A S H    B E C A U S E    O F"
  507.   LOCATE 12,20:PRINT"L O W   S P E E D    S T A L L":GOTO crash9
  508. ELSE
  509.   GOTO rtn3
  510. END IF
  511. crash1:
  512.  CLS:LOCATE 8,30:PRINT"YOU LANDED SHORT OF RUNWAY":GOTO restart
  513. crash2:
  514.  CLS:LOCATE 8,30:PRINT"IT WAS A CRASH LANDING":GOTO restart
  515. crash3:
  516.  CLS:LOCATE 8,30:PRINT"IT WAS A HEAVY LANDING":GOTO restart
  517. crash4:
  518.  CLS:LOCATE 8,30:PRINT"YOU SLID OF THE RUNWAY":GOTO restart
  519. crash5:
  520.  CLS:LOCATE 8,30:PRINT"YOU OVERRUN THE RUNWAY":GOTO restart
  521. crash7:
  522.  CLS:LOCATE 8,30:PRINT"YOU LANDED WITH YOU WHEELS UP":GOTO restart    
  523. crash9:
  524.  FOR a=0 TO 2500+h:NEXT:CLS
  525.  FOR x=2 TO 12 STEP 2:LOCATE x,1+RND*60:PRINT"B A N G":NEXT
  526.  LOCATE 15,25:PRINT"Y O U   H A V E   C R A S H E D  ! ! !"  
  527. restart:
  528.  LOCATE 17,30:PRINT "T R Y   I T   A G A I N";:FOR x=1 TO 9999:NEXT:RUN 
  529.                                                                  
  530.  
  531.